home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD Fun House 1
/
CD Fun House (Wayzata Technology).iso
/
HyperCard 2.0
/
HyperCard
/
HyperCard.rsrc
/
WDEF_129_Movable Modal.txt
< prev
next >
Wrap
Text File
|
1990-08-31
|
21KB
|
385 lines
start:
00000000 600A bra +0xC /* 0000000C */
00000002 0000 5744 ori.b D0, 0x44 /* 'D' */
00000006 4546 chk.w D2, D6
00000008 0002 0001 ori.b D2, 0x1
label0000000C:
0000000C 4E56 FFDE link A6, -0x0022
00000010 48E7 1F78 movem.l -[A7], D3,D4,D5,D6,D7,A1,A2,A3,A4
00000014 0C6E 0006 000C cmpi.w [A6 + 0xC], 0x6
0000001A 6E00 00D2 bgt +0xD4 /* 000000EE */
0000001E 0C6E 0000 000C cmpi.w [A6 + 0xC], 0x0
00000024 6B00 00C8 bmi +0xCA /* 000000EE */
00000028 2055 movea.l A0, [A5]
0000002A 2F10 move.l -[A7], [A0]
0000002C 0C78 3FFF 028E cmpi.w [0x0000028E /* ROM85 */], 0x3FFF
00000032 53EE FFDE sls [A6 - 0x22]
00000036 6206 bhi +0x8 /* 0000003E */
00000038 6100 00D0 bsr +0xD2 /* 0000010A */
0000003C 6006 bra +0x8 /* 00000044 */
label0000003E:
0000003E 2F38 09DE move.l -[A7], [0x000009DE /* WMgrPort */]
00000042 A873 syscall SetPort
label00000044:
00000044 47EE FFF8 lea.l A3, [A6 - 0x8]
00000048 2F0B move.l -[A7], A3
0000004A A88B syscall GetFontInfo
0000004C 3E1B move.w D7, [A3]+
0000004E DE5B add.w D7, [A3]+
00000050 5447 addq.w D7, 2
00000052 08C7 0000 bset.b D7, 0x0
00000056 7211 moveq.l D1, 0x11
00000058 BE41 cmp.w D7, D1
0000005A 6C0A bge +0xC /* 00000066 */
0000005C 9247 sub.w D1, D7
0000005E E249 lsr D1.w, 1
00000060 D36E FFF8 add.w [A6 - 0x8], D1
00000064 7E11 moveq.l D7, 0x11
label00000066:
00000066 36C7 move.w [A3]+, D7
00000068 3007 move.w D0, D7
0000006A 0440 000B subi.w D0, 0xB
0000006E E248 lsr D0.w, 1
00000070 3680 move.w [A3], D0
00000072 42A7 clr.l -[A7]
00000074 A8D8 syscall NewRgn
00000076 2D5F FFF4 move.l [A6 - 0xC], [A7]+
0000007A 4A2E FFDE tst.b [A6 - 0x22]
0000007E 672E beq +0x30 /* 000000AE */
00000080 486E FFE6 pea.l [A6 - 0x1A]
00000084 AA19 syscall GetForeColor
00000086 486E FFE0 pea.l [A6 - 0x20]
0000008A AA1A syscall GetBackColor
0000008C 42A7 clr.l -[A7]
0000008E 4267 clr.w -[A7]
00000090 2F2E 000E move.l -[A7], [A6 + 0xE]
00000094 486F 0006 pea.l [A7 + 0x6]
00000098 AA42 syscall GetAuxWin
0000009A 544F addq.w A7, 2
0000009C 205F movea.l A0, [A7]+
0000009E 2050 movea.l A0, [A0]
000000A0 2068 0008 movea.l A0, [A0 + 0x8]
000000A4 2D48 FFF0 move.l [A6 - 0x10], A0
000000A8 A029 syscall HLock
000000AA 2D50 FFEC move.l [A6 - 0x14], [A0]
label000000AE:
000000AE 41EE 0008 lea.l A0, [A6 + 0x8]
000000B2 2618 move.l D3, [A0]+
000000B4 3018 move.w D0, [A0]+
000000B6 2658 movea.l A3, [A0]+
000000B8 3A18 move.w D5, [A0]+
000000BA 3C05 move.w D6, D5
000000BC 0245 0003 andi.w D5, 0x3
000000C0 4290 clr.l [A0]
000000C2 D040 add.w D0, D0
000000C4 41FA 0036 lea.l A0, [PC + 0x36 /* 000000FC, value 0x80026C, cstring "" */]
000000C8 D0FB 0032 add.w A0, [PC + D0.w + 0x32]
000000CC 4E90 jsr [A0]
000000CE 2F2E FFF4 move.l -[A7], [A6 - 0xC]
000000D2 A8D9 syscall DisposRgn/DisposeRgn
000000D4 4A2E FFDE tst.b [A6 - 0x22]
000000D8 6712 beq +0x14 /* 000000EC */
000000DA 206E FFF0 movea.l A0, [A6 - 0x10]
000000DE A02A syscall HUnlock
000000E0 486E FFE0 pea.l [A6 - 0x20]
000000E4 AA15 syscall RGBBackColor
000000E6 486E FFE6 pea.l [A6 - 0x1A]
000000EA AA14 syscall RGBForeColor
label000000EC:
000000EC A873 syscall SetPort
label000000EE:
000000EE 4CDF 1EF8 movem.l D3,D4,D5,D6,D7,A1,A2,A3,A4, [A7]+
000000F2 4E5E unlink A6
000000F4 205F movea.l A0, [A7]+
000000F6 DEFC 000C add.w A7, 0xC
000000FA 4ED0 jmp [A0]
000000FC 0080 026C 0298 ori.l D0, 0x26C0298
00000102 0046 0048 ori.w D6, 0x48 /* 'H' */
00000106 02E0 .incomplete
00000108 030E btst A6, D1
fn0000010A:
0000010A 2F38 0D2C move.l -[A7], [0x00000D2C /* WMgrCPort */]
0000010E A873 syscall SetPort
00000110 2078 09DE movea.l A0, [0x000009DE /* WMgrPort */]
00000114 2278 0D2C movea.l A1, [0x00000D2C /* WMgrCPort */]
00000118 4868 0020 pea.l [A0 + 0x20]
0000011C 4868 003A pea.l [A0 + 0x3A]
00000120 41E8 0030 lea.l A0, [A0 + 0x30]
00000124 43E9 0030 lea.l A1, [A1 + 0x30]
00000128 22D8 move.l [A1]+, [A0]+
0000012A 22D8 move.l [A1]+, [A0]+
0000012C 32D8 move.w [A1]+, [A0]+
0000012E 5048 addq.w A0, 8
00000130 5049 addq.w A1, 8
00000132 303C 0014 move.w D0, 0x14
label00000136:
00000136 32D8 move.w [A1]+, [A0]+
00000138 51C8 FFFC dbf D0, -0x6 /* 00000136 */
0000013C A89D syscall PenPat
0000013E A87C syscall BackPat
00000140 4E75 rts
00000142 4E75 rts
00000144 4E75 rts
fn00000146:
00000146 2F01 move.l -[A7], D1
00000148 206E FFEC movea.l A0, [A6 - 0x14]
0000014C 3228 0006 move.w D1, [A0 + 0x6]
00000150 C2FC 0008 mulu.w D1, 0x8
label00000154:
00000154 B070 1008 cmp.w D0, [A0 + D1.w + 0x8]
00000158 6706 beq +0x8 /* 00000160 */
0000015A 5141 subq.w D1, 8
0000015C 6CF6 bge -0x8 /* 00000154 */
0000015E 7200 moveq.l D1, 0x00
label00000160:
00000160 41F0 100A lea.l A0, [A0 + D1.w + 0xA]
00000164 2008 move.l D0, A0
00000166 221F move.l D1, [A7]+
00000168 205F movea.l A0, [A7]+
0000016A 2F00 move.l -[A7], D0
0000016C 4ED0 jmp [A0]
fn0000016E:
0000016E 5448 addq.w A0, 2
00000170 4A68 0004 tst.w [A0 + 0x4]
00000174 6A04 bpl +0x6 /* 0000017A */
00000176 2050 movea.l A0, [A0]
00000178 2050 movea.l A0, [A0]
label0000017A:
0000017A 4E75 rts
0000017C 4A2B 006E tst.b [A3 + 0x6E]
00000180 6700 0126 beq +0x128 /* 000002A8 */
00000184 0C43 0004 cmpi.w D3, 0x4
00000188 6700 011E beq +0x120 /* 000002A8 */
0000018C A89E syscall PenNormal
0000018E 6100 0122 bsr +0x124 /* 000002B2 */
00000192 4A2E FFDE tst.b [A6 - 0x22]
00000196 6710 beq +0x12 /* 000001A8 */
00000198 303C 0001 move.w D0, 0x1
0000019C 61A8 bsr -0x56 /* 00000146 */
0000019E AA14 syscall RGBForeColor
000001A0 303C 0004 move.w D0, 0x4
000001A4 61A0 bsr -0x5E /* 00000146 */
000001A6 AA15 syscall RGBBackColor
label000001A8:
000001A8 4878 09FA push.l 0x9FA
000001AC 2F17 move.l -[A7], [A7]
000001AE 2F17 move.l -[A7], [A7]
000001B0 2F38 0A02 move.l -[A7], [0x00000A02 /* OneOne */]
000001B4 A8A9 syscall InsetRect
000001B6 A8A3 syscall EraseRect
000001B8 2F3C 0000 0001 move.l -[A7], 0x1
000001BE A8A9 syscall InsetRect
000001C0 6100 010E bsr +0x110 /* 000002D0 */
000001C4 4A2B 006F tst.b [A3 + 0x6F]
000001C8 6700 0062 beq +0x64 /* 0000022C */
000001CC 4A2E FFDE tst.b [A6 - 0x22]
000001D0 6714 beq +0x16 /* 000001E6 */
000001D2 303C 0004 move.w D0, 0x4
000001D6 6100 FF6E bsr -0x90 /* 00000146 */
000001DA AA15 syscall RGBBackColor
000001DC 303C 0003 move.w D0, 0x3
000001E0 6100 FF64 bsr -0x9A /* 00000146 */
000001E4 AA14 syscall RGBForeColor
label000001E6:
000001E6 4878 09FA push.l 0x9FA
000001EA 3F3C 0001 move.w -[A7], 0x1
000001EE 3F2E FFFE move.w -[A7], [A6 - 0x2]
000001F2 A8A9 syscall InsetRect
000001F4 3F38 0A00 move.w -[A7], [0x00000A00]
000001F8 31C3 0A00 move.w [0x00000A00], D3
000001FC 2038 09FA move.l D0, [0x000009FA /* TempRect/Scratch8 */]
00000200 0280 0007 0007 andi.l D0, 0x70007
00000206 2855 movea.l A4, [A5]
00000208 2940 FF58 move.l [A4 - 0xA8], D0
0000020C 4878 09FA push.l 0x9FA
00000210 487A 0098 pea.l [PC + 0x98 /* 000002AA, value 0xFF00FF00 */]
00000214 A8A5 syscall FillRect
00000216 31DF 0A00 move.w [0x00000A00], [A7]+
0000021A 31C4 09FC move.w [0x000009FC], D4
0000021E 4878 09FA push.l 0x9FA
00000222 487A 0086 pea.l [PC + 0x86 /* 000002AA, value 0xFF00FF00 */]
00000226 A8A5 syscall FillRect
00000228 42AC FF58 clr.l [A4 - 0xA8]
label0000022C:
0000022C 4A2E FFDE tst.b [A6 - 0x22]
00000230 6710 beq +0x12 /* 00000242 */
00000232 7001 moveq.l D0, 0x01
00000234 6100 FF10 bsr -0xEE /* 00000146 */
00000238 AA14 syscall RGBForeColor
0000023A 7000 moveq.l D0, 0x00
0000023C 6100 FF08 bsr -0xF6 /* 00000146 */
00000240 AA15 syscall RGBBackColor
label00000242:
00000242 206B 0072 movea.l A0, [A3 + 0x72]
00000246 2050 movea.l A0, [A0]
00000248 49E8 0002 lea.l A4, [A0 + 0x2]
0000024C 2F0C move.l -[A7], A4
0000024E A8A1 syscall FrameRect
00000250 21D4 09FA move.l [0x000009FA /* TempRect/Scratch8 */], [A4]
00000254 21EC 0004 09FE move.l [0x000009FE], [A4 + 0x4]
0000025A DF78 09FA add.w [0x000009FA /* TempRect/Scratch8 */], D7
0000025E 4878 09FA push.l 0x9FA
00000262 2F17 move.l -[A7], [A7]
00000264 2F17 move.l -[A7], [A7]
00000266 2F38 0A02 move.l -[A7], [0x00000A02 /* OneOne */]
0000026A A8A9 syscall InsetRect
0000026C 2F3C 0007 0007 move.l -[A7], 0x70007
00000272 A89B syscall PenSize
00000274 2055 movea.l A0, [A5]
00000276 4868 FFF8 pea.l [A0 - 0x8]
0000027A A89D syscall PenPat
0000027C A8A1 syscall FrameRect
0000027E 2055 movea.l A0, [A5]
00000280 4868 FFF0 pea.l [A0 - 0x10]
00000284 A89D syscall PenPat
00000286 5578 09FA subq.w [0x000009FA /* TempRect/Scratch8 */], 2
0000028A 2F3C 0002 0002 move.l -[A7], 0x20002
00000290 2F17 move.l -[A7], [A7]
00000292 A89B syscall PenSize
00000294 A8A9 syscall InsetRect
00000296 4878 09FA push.l 0x9FA
0000029A A8A1 syscall FrameRect
0000029C A89E syscall PenNormal
0000029E 286B 0072 movea.l A4, [A3 + 0x72]
000002A2 2854 movea.l A4, [A4]
000002A4 49EC 0002 lea.l A4, [A4 + 0x2]
label000002A8:
000002A8 4E75 rts
000002AA FF00 .extension 0xF00 <<F/4-5/7>> // unimplemented
000002AC FF00 .extension 0xF00 <<F/4-5/7>> // unimplemented
000002AE FF00 .extension 0xF00 <<F/4-5/7>> // unimplemented
000002B0 FF00 .extension 0xF00 <<F/4-5/7>> // unimplemented
fn000002B2:
000002B2 41F8 09FA lea.l A0, [0x000009FA /* TempRect/Scratch8 */]
000002B6 226B 0072 movea.l A1, [A3 + 0x72]
000002BA 2251 movea.l A1, [A1]
000002BC 5449 addq.w A1, 2
000002BE 2099 move.l [A0], [A1]+
000002C0 2151 0004 move.l [A0 + 0x4], [A1]
000002C4 3010 move.w D0, [A0]
000002C6 D047 add.w D0, D7
000002C8 5440 addq.w D0, 2
000002CA 3140 0004 move.w [A0 + 0x4], D0
000002CE 4E75 rts
fn000002D0:
000002D0 3838 0A00 move.w D4, [0x00000A00]
000002D4 3604 move.w D3, D4
000002D6 9678 09FC sub.w D3, [0x000009FC]
000002DA 966B 008A sub.w D3, [A3 + 0x8A]
000002DE E243 asr D3.w, 1
000002E0 7002 moveq.l D0, 0x02
000002E2 B640 cmp.w D3, D0
000002E4 6C02 bge +0x4 /* 000002E8 */
000002E6 3600 move.w D3, D0
label000002E8:
000002E8 D678 09FC add.w D3, [0x000009FC]
000002EC 3F04 move.w -[A7], D4
000002EE 2F2E FFF4 move.l -[A7], [A6 - 0xC]
000002F2 2F17 move.l -[A7], [A7]
000002F4 A87A syscall GetClip
000002F6 31C4 0A00 move.w [0x00000A00], D4
000002FA 4878 09FA push.l 0x9FA
000002FE A87B syscall ClipRect
00000300 2055 movea.l A0, [A5]
00000302 2050 movea.l A0, [A0]
00000304 2F28 001C move.l -[A7], [A0 + 0x1C]
00000308 2F17 move.l -[A7], [A7]
0000030A A8E4 syscall SectRgn
0000030C 31DF 0A00 move.w [0x00000A00], [A7]+
00000310 3F03 move.w -[A7], D3
00000312 3038 09FA move.w D0, [0x000009FA /* TempRect/Scratch8 */]
00000316 D06E FFF8 add.w D0, [A6 - 0x8]
0000031A 5240 addq.w D0, 1
0000031C 3F00 move.w -[A7], D0
0000031E A893 syscall MoveTo
00000320 4A2E FFDE tst.b [A6 - 0x22]
00000324 671A beq +0x1C /* 00000340 */
00000326 303C 0004 move.w D0, 0x4
0000032A 6100 FE1A bsr -0x1E4 /* 00000146 */
0000032E AA15 syscall RGBBackColor
00000330 303C 0002 move.w D0, 0x2
00000334 6100 FE10 bsr -0x1EE /* 00000146 */
00000338 AA14 syscall RGBForeColor
0000033A 3F3C 0001 move.w -[A7], 0x1
0000033E A889 syscall TextMode
label00000340:
00000340 206B 0086 movea.l A0, [A3 + 0x86]
00000344 A029 syscall HLock
00000346 2F10 move.l -[A7], [A0]
00000348 A884 syscall DrawString
0000034A 206B 0086 movea.l A0, [A3 + 0x86]
0000034E A02A syscall HUnlock
00000350 2F2E FFF4 move.l -[A7], [A6 - 0xC]
00000354 A879 syscall SetClip
00000356 3003 move.w D0, D3
00000358 5D43 subq.w D3, 6
0000035A D06B 008A add.w D0, [A3 + 0x8A]
0000035E B044 cmp.w D0, D4
00000360 6C02 bge +0x4 /* 00000364 */
00000362 3800 move.w D4, D0
label00000364:
00000364 5C44 addq.w D4, 6
00000366 4E75 rts
00000368 4267 clr.w -[A7]
0000036A 2F03 move.l -[A7], D3
0000036C 2F2B 0076 move.l -[A7], [A3 + 0x76]
00000370 A8E8 syscall PtInRgn
00000372 4A1F tst.b [A7]+
00000374 6706 beq +0x8 /* 0000037C */
00000376 7001 moveq.l D0, 0x01
00000378 6000 0014 bra +0x16 /* 0000038E */
label0000037C:
0000037C 6100 FF34 bsr -0xCA /* 000002B2 */
00000380 4267 clr.w -[A7]
00000382 2F03 move.l -[A7], D3
00000384 2F08 move.l -[A7], A0
00000386 A8AD syscall PtInRect
00000388 4A1F tst.b [A7]+
0000038A 6706 beq +0x8 /* 00000392 */
0000038C 7002 moveq.l D0, 0x02
label0000038E:
0000038E 2D40 0014 move.l [A6 + 0x14], D0
label00000392:
00000392 4E75 rts
00000394 41F8 09FA lea.l A0, [0x000009FA /* TempRect/Scratch8 */]
00000398 2F08 move.l -[A7], A0
0000039A 20EB 0010 move.l [A0]+, [A3 + 0x10]
0000039E 20AB 0014 move.l [A0], [A3 + 0x14]
000003A2 204B movea.l A0, A3
000003A4 6100 FDC8 bsr -0x236 /* 0000016E */
000003A8 2F28 0006 move.l -[A7], [A0 + 0x6]
000003AC 4457 neg.w [A7]
000003AE 446F 0002 neg.w [A7 + 0x2]
000003B2 A8A8 syscall OffsetRect
000003B4 2F2B 0076 move.l -[A7], [A3 + 0x76]
000003B8 4878 09FA push.l 0x9FA
000003BC A8DF syscall RectRgn
000003BE 2F2B 0072 move.l -[A7], [A3 + 0x72]
000003C2 4878 09FA push.l 0x9FA
000003C6 2F17 move.l -[A7], [A7]
000003C8 2F3C FFF8 FFF8 move.l -[A7], 0xFFF8FFF8
000003CE A8A9 syscall InsetRect
000003D0 3007 move.w D0, D7
000003D2 5540 subq.w D0, 2
000003D4 9178 09FA sub.w [0x000009FA /* TempRect/Scratch8 */], D0
000003D8 A8DF syscall RectRgn
000003DA 4E75 rts
000003DC 4E75 rts
000003DE 41F8 0A0E lea.l A0, [0x00000A0E /* IconBitmap */]
000003E2 20C9 move.l [A0]+, A1
000003E4 30FC 0002 move.w [A0]+, 0x2
000003E8 4298 clr.l [A0]+
000003EA 2081 move.l [A0], D1
000003EC 4878 0A0E push.l 0xA0E
000003F0 2057 movea.l A0, [A7]
000003F2 2255 movea.l A1, [A5]
000003F4 2251 movea.l A1, [A1]
000003F6 4869 0002 pea.l [A1 + 0x2]
000003FA 4868 0006 pea.l [A0 + 0x6]
000003FE 4878 09FA push.l 0x9FA
00000402 3F00 move.w -[A7], D0
00000404 42A7 clr.l -[A7]
00000406 A8EC syscall CopyBits
00000408 4E75 rts
0000040A 4E75 rts